home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 27 / MacFormat n. 27 (Spain) / Mac Format 26.bin / Demos / Last Express Demo / The Last Express Demo / The Last Express Demo.11 MAC / 00128.ls < prev    next >
Encoding:
Text File  |  1996-10-23  |  989 b   |  38 lines
  1. global gCurMov, gTimer
  2.  
  3. on exitFrame
  4.   if (the ticks - gTimer) > (30 * 60) then
  5.     puppetSound(2, the number of member "whistle sound")
  6.     set gTimer to the ticks
  7.   end if
  8.   go(the frame)
  9. end
  10.  
  11. on mouseDown
  12.   if (mouseCast() = 115) or (mouseCast() = 116) then
  13.     set orgloc to the loc of sprite the clickOn
  14.     set newloc to the loc of sprite the clickOn + point(2, 2)
  15.     repeat while the stillDown
  16.       if rollOver(the clickOn) then
  17.         puppetSprite(the clickOn, 1)
  18.         set the loc of sprite the clickOn to newloc
  19.         updateStage()
  20.         next repeat
  21.       end if
  22.       set the loc of sprite the clickOn to orgloc
  23.       puppetSprite(the clickOn, 0)
  24.       updateStage()
  25.     end repeat
  26.     if rollOver(the clickOn) then
  27.       case mouseCast() of
  28.         115:
  29.           set gCurMov to the name of member 115
  30.         116:
  31.           set gCurMov to the name of member 116
  32.       end case
  33.       puppetSprite(the clickOn, 0)
  34.       go("animation sequence")
  35.     end if
  36.   end if
  37. end
  38.